home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / hf^k-6.dms / in.adf / Install.run / GOLDEDDATA / UnLock < prev   
Encoding:
Text File  |  1995-04-13  |  474 b   |  20 lines
  1. /* $VER 0.9, ©1993 Dietmar Eilert
  2.  
  3.  This script sends an UNLOCK command to all running GoldED tasks. Useful if
  4.  some  script  failed,  leaving  the  editor  in  a deadlock situation (GUI
  5.  locked). DO NEVER CALL THIS MACRO UNLESS YOU HAVE TO DO SO. If you  unlock
  6.  the GUI while a Rexx script is controlling GoldED, the script will break.
  7.  
  8. */
  9.  
  10. do n = 1 to 10
  11.  
  12.     name = 'GOLDED.' || n
  13.  
  14.     if show('p', name) then do
  15.  
  16.         address value name
  17.         'UNLOCK'
  18.     end
  19. end
  20.